home *** CD-ROM | disk | FTP | other *** search
/ PC Format (UK) 82 / PC Format May 1998.iso / Share / Mega / PS.TXT < prev    next >
Text File  |  1998-01-30  |  6KB  |  215 lines
  1. %!PS-Adobe-2.0
  2. %%Title:XDRAW PRINT JOB
  3.  
  4.  
  5. statusdict begin statusdict /jobname (XDRAW) put end
  6. /WinDict 60 dict def WinDict begin
  7.  
  8.  
  9. /mx1 matrix def
  10. /hypot { dup mul exch dup mul add sqrt } def
  11. /iRes 2540 def
  12. /iDevRes 72 0 mx1 defaultmatrix dtransform hypot def
  13. /inch { 72 mul } def
  14. /PenWidth iRes iDevRes div def 
  15. /fLandscape false def 
  16. /cxPaper
  17. /cyPaper
  18. /cxMargin .25 inch def 
  19. /cyMargin .25 inch def 
  20. /#C { userdict begin /#copies exch def end } def
  21. /SJT{statusdict begin setjobtimeout end}def
  22. /SetCTM
  23.  {
  24.  mx1 defaultmatrix setmatrix
  25.  fLandscape { 0 cyPaper translate -90 rotate } if
  26.  } def
  27. /SetMetrics
  28.  {
  29.  /fLandscape exch 0 ne def
  30.  /iRes exch def
  31.  fLandscape
  32.  {
  33.  /cxPaper exch iRes div inch def 
  34.  /cyPaper exch iRes div inch def 
  35.  /cxMargin exch iRes div inch def 
  36.  /cyMargin exch iRes div inch def 
  37.  }{
  38.  /cyPaper exch iRes div inch def 
  39.  /cxPaper exch iRes div inch def 
  40.  /cyMargin exch iRes div inch def 
  41.  /cxMargin exch iRes div inch def 
  42.  }
  43.  ifelse
  44.  SetCTM
  45.  } def
  46. /ClipBox
  47.  {
  48.  2 {.5 add 4 1 roll} repeat
  49.  2 {.5 sub 4 1 roll} repeat
  50.  /y1 exch iRes div inch def 
  51.  /x1 exch iRes div inch def
  52.  /y0 exch iRes div inch def 
  53.  /x0 exch iRes div inch def
  54.  newpath
  55.  x0 y0 moveto
  56.  x1 y0 lineto
  57.  x1 y1 lineto
  58.  x0 y1 lineto
  59.  closepath
  60.  clip
  61.  } def
  62. /E { showpage SetCTM PenWidth setlinewidth } def
  63. %%papersize
  64. statusdict begin revision end 2 lt {
  65. {}
  66. }
  67. {
  68. {
  69. mark
  70. 1.0 1.0 .98 .9 .82 .68 .56 .48 .28 .1 .06 .0
  71. counttomark dup 3 add -1 roll exch
  72. 2 sub mul dup floor cvi
  73. dup 3 1 roll sub
  74. exch dup
  75. 3 add index exch 2 add index dup
  76. 4 1 roll
  77. sub mul add
  78. counttomark 1 add 1 roll
  79. cleartomark
  80. }
  81. }ifelse
  82. settransfer
  83. 0 0 43180 43180 iRes 0 SetMetrics
  84.  
  85.  
  86. statusdict begin /manualfeed false store end
  87. 0 SJT
  88.  
  89. 0 0 43180 43180 ClipBox
  90. %%copies
  91.  
  92. %%BeginDocument:XDRAW
  93. %!PS-Adobe-2.0 EPSF-1.2
  94. %%Creator:XDRAW
  95. %%CreationDate:
  96. %%DocumentProcSets:XDRAW 0 0
  97. %%DocumentSuppliedProcSets:XDRAW 0 0
  98. %%DocumentFonts:Courier
  99. %%BoundingBox:
  100. %%Template:
  101. %%TemplateBox:
  102. %%PageOrigin:0 0
  103. %%PrinterName:Apple LaserWriter
  104. %%PrinterRect:
  105. %%EndComments
  106. % /showpage{}def
  107. % /copypage{}def
  108.  
  109. %%BeginProcSet:XDRAW 0 0
  110. %%================== Begin_Procedure_definitions =====================
  111. /XDRAW dup 100 dict def load begin
  112. /Version 0 def
  113. /Revision 0 def
  114. %----------------------- definition operators ------------------------
  115. /bdef {bind def} bind def
  116. /ldef {load def} bdef
  117. /xdef {exch def} bdef
  118. %---------------------- graphic state operators ----------------------
  119. /_K {3 index add neg dup 0 lt {pop 0} if 3 1 roll} bdef
  120. /_k /setcmybcolor where 
  121. {/setcmybcolor get} {{1 sub 4 1 roll _K _K _K setrgbcolor pop} bind} ifelse def
  122. /g {/_b xdef /p {_b setgray} def} bdef
  123. /G {/_B xdef /P {_B setgray} def} bdef
  124. /k {/_b xdef /_y xdef /_m xdef /_c xdef /p {_c _m _y _b _k} def} bdef
  125. /K {/_B xdef /_Y xdef /_M xdef /_C xdef /P {_C _M _Y _B _k} def} bdef
  126. /d /setdash ldef
  127. /_i currentflat def
  128. /i {dup 0 eq {pop _i} if setflat} bdef
  129. /j /setlinejoin ldef
  130. /J /setlinecap ldef
  131. /M /setmiterlimit ldef
  132. /w /setlinewidth ldef
  133. %--------------------- path construction operators -------------------
  134. /_R {.25 sub round .25 add} bdef
  135. /_r {transform _R exch _R exch itransform} bdef
  136. /c {_r curveto} bdef
  137. /C /c ldef
  138. /v {currentpoint 6 2 roll _r curveto} bdef
  139. /V /v ldef
  140. /y {_r 2 copy curveto} bdef
  141. /Y /y ldef
  142. /l {_r lineto} bdef
  143. /L /l ldef
  144. /m {_r moveto} bdef
  145. %------------------------- error operators ---------------------------
  146. /_e [] def
  147. /_E {_e length 0 ne {gsave 0 g 0 G 0 i 0 J 0 j 1 w 10 M [] 0 d
  148. /Courier 20 0 0 1 z [0.966 0.259 -0.259 0.966
  149. _e 0 get _e 2 get add 2 div _e 1 get _e 3 get add 2 div] e _f t T grestore} if} bdef
  150. /_fill {{gsave fill grestore} stopped
  151. {/_e [pathbbox] def /_f (ERROR: can't fill, increase flatness) def n _E} if} bdef
  152. /_stroke {{stroke} stopped
  153. {/_e [pathbbox] def /_f (ERROR: can't stroke, increase flatness) def n _E} if} bdef
  154. %--------------------- path painting operators -----------------------
  155. /n /newpath ldef
  156. /N /n ldef
  157. /F {p _fill} bdef
  158. /f {closepath gsave F grestore} bdef
  159. /S {gsave P _stroke grestore} bdef
  160. /s {closepath S} bdef
  161. /B {gsave F grestore S} bdef
  162. /b {closepath B} bdef
  163. %---------- text block construction and painting operators -----------
  164. /_s /ashow ldef
  165. /_S {(?) exch {2 copy 0 exch put pop dup false charpath currentpoint _g setmatrix
  166. _stroke _G setmatrix moveto 3 copy pop rmoveto} forall pop pop pop n} bdef
  167. /_A {_a moveto _t exch 0 exch} bdef
  168. /_L {0 _l neg translate _G currentmatrix pop} bdef
  169. /_w {dup stringwidth exch 3 -1 roll length 1 sub _t mul add exch} bdef
  170. /_z [{0 0} bind {dup _w exch neg 2 div exch neg 2 div} bind {dup _w exch neg exch neg} bind] def
  171. /z {_z exch get /_a xdef /_t xdef /_l xdef exch findfont exch scalefont setfont} bdef
  172. /_g matrix def
  173. /_G matrix def
  174. /_D {_g currentmatrix pop gsave concat _G currentmatrix pop} bdef
  175. /e {_D p /t {_A _s _L} def} bdef
  176. /r {_D P /t {_A _S _L} def} bdef
  177. /a {_D /t {dup p _A _s P _A _S _L} def} bdef
  178. /o {_D /t {pop _L} def} bdef
  179. /T {grestore} bdef
  180. %------------------- group construction operators --------------------
  181. /u {} bdef
  182. /U {} bdef
  183. %------------------- font construction operators ---------------------
  184. /Z {findfont begin currentdict dup length 1 add dict begin
  185. {1 index /FID ne {def} {pop pop} ifelse} forall /FontName exch def dup length 0 ne
  186. {/Encoding Encoding 256 array copy def 0 exch {dup type /nametype eq
  187. {Encoding 2 index 2 index put pop 1 add} {exch pop} ifelse} forall} if pop
  188. currentdict dup end end /FontName get exch definefont pop} bdef
  189. end
  190. %%EndProcSet
  191. %%==================== End_Procedure_Definitions =====================
  192. %%EndProlog
  193. %%BeginSetup
  194. XDRAW begin
  195. n
  196. u
  197. 0 g
  198. 0 G
  199. 0 i
  200. 1 J
  201. 1 j
  202. 0.24 w
  203. 4 M
  204. []0 d
  205. 0 0 43180 43180 ClipBox
  206. %%EndSetup
  207. %%========================== Begin_Program ===========================
  208. %%Begin_Program
  209. %%End_Program
  210. %%=========================== End_Program ============================
  211. %%Trailer
  212. _E end
  213. %%EndDocument
  214. E
  215.